% V20210224 - 13.5 Panel Example

INCLUDE "GW.bas"

eol$ = chr$(10)
% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Panel Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the PANEL control:")

% Add  button to activate the panel.
GW_ADD_BUTTON(p, "Let's do this!", "show")

% Let's prepare the panel.
p$  = "Long, long ago ..."
p$ += eol$ + eol$
p$ += "In a <b>galaxy</b> far, far away ..."
pan = GW_ADD_PANEL(p, p$)

% Now show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Test for button press.
 IF r$ = "show" then GW_SHOW_PANEL(pan)

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of PANEL example."